home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Joker 5 & 6 / Multimedia Joker 1996-05 & 06 (1996)(Joker Verlag)(DE)[Amiga-Mac-PC].iso / pc / amiga / pdtools / dmsii_v1.lha / DMSII / Source / Source.DMS / Source.adf / DMSII.s < prev   
Text File  |  1992-12-21  |  19KB  |  1,010 lines
  1. *
  2. *  Source machine generated by GadToolsBox V2.0
  3. *  which is (c) Copyright 1991-1993 Jaba Development
  4. *
  5. *  GUI Designed by : Newtec
  6. *
  7.  
  8. OpenScreenTagList    EQU    -612
  9. OpenWindowTagList    EQU    -606
  10. CloseScreen          EQU    -66
  11. CloseWindow          EQU    -72
  12. PrintIText           EQU    -216
  13. LockPubScreen        EQU    -510
  14. UnlockPubScreen      EQU    -516
  15. SetMenuStrip         EQU    -264
  16. ClearMenuStrip       EQU    -54
  17. GetVisualInfoA       EQU    -126
  18. FreeVisualInfo       EQU    -132
  19. CreateContext        EQU    -114
  20. CreateGadgetA        EQU    -30
  21. GT_RefreshWindow     EQU    -84
  22. FreeGadgets          EQU    -36
  23. CreateMenusA         EQU    -48
  24. LayoutMenusA         EQU    -66
  25. FreeMenus            EQU    -54
  26. OpenDiskFont         EQU    -30
  27. CloseFont            EQU    -78
  28. DrawBevelBoxA        EQU    -120
  29. FreeClass            EQU    -714
  30. NewObjectA           EQU    -636
  31. DisposeObject        EQU    -642
  32. TextLength           EQU    -54
  33. CopyMem              EQU    -624
  34. FindTagItem          EQU    -30
  35. IntuiTextLength      EQU    -330
  36. Forbid               EQU    -132
  37. Permit               EQU    -138
  38.  
  39. GD_CModeGG                             EQU    0
  40. GD_DriveGG                             EQU    1
  41. GD_ModeGG                              EQU    2
  42. GD_LoTrackGG                           EQU    3
  43. GD_HiTrackGG                           EQU    4
  44. GD_ArchiveNameGG                       EQU    5
  45. GD_TextFNameGG                         EQU    6
  46. GD_BitmapGG                            EQU    7
  47. GD_ValidateGG                          EQU    8
  48. GD_ShowTextGG                          EQU    9
  49. GD_PauseGG                             EQU    10
  50. GD_KeyGG                               EQU    11
  51. GD_StartGG                             EQU    12
  52. GD_GetArchiveNameGG                    EQU    13
  53. GD_GetTextFNameGG                      EQU    14
  54. GD_ViewFullGG                          EQU    15
  55.  
  56. DMSII_CNT    EQU    16
  57.  
  58. Scr:
  59.     DC.L    0
  60. VisualInfo:
  61.     DC.L    0
  62. PubScreenName:
  63.     DC.L    0
  64. DMSIIWnd:
  65.     DC.L    0
  66. DMSIIGList:
  67.     DC.L    0
  68. DMSIIMenus:
  69.     DC.L    0
  70. MTags0:
  71.     DC.L    $80080032,0,$00000000
  72. MTags1:
  73.     DC.L    $80080031,topaz8,$00000000
  74. DMSIIZoom:
  75.     DC.W    0,0,0,0
  76. DMSIIGadgets:
  77.     DCB.L    16,0
  78. BufNewGad:
  79.     DC.W    0,0,0,0
  80.     DC.L    0,0
  81.     DC.W    0
  82.     DC.L    0,0,0
  83. TD:
  84.     DC.L    $00000000
  85. NR:
  86.     DC.L    $80080034,$00000000,$00000000
  87. IR:
  88.     DC.L    $80080034,$00000000,$80080033,1,$00000000
  89. DMSIILeft:
  90.     DC.W    141
  91. DMSIITop:
  92.     DC.W    60
  93. DMSIIWidth:
  94.     DC.W    430
  95. DMSIIHeight:
  96.     DC.W    151
  97.  
  98. DMSIIGTypes:
  99.     DC.W    5
  100.     DC.W    4
  101.     DC.W    5
  102.     DC.W    11
  103.     DC.W    11
  104.     DC.W    12
  105.     DC.W    12
  106.     DC.W    2
  107.     DC.W    2
  108.     DC.W    2
  109.     DC.W    2
  110.     DC.W    12
  111.     DC.W    1
  112.     DC.W    1
  113.     DC.W    1
  114.     DC.W    2
  115.  
  116. DMSIINGads:
  117.     DC.W    206,18,17,9
  118.     DC.L    CModeGGText,0
  119.     DC.W    GD_CModeGG
  120.     DC.L    $0002,0,0
  121.     DC.W    306,15,60,64
  122.     DC.L    DriveGGText,0
  123.     DC.W    GD_DriveGG
  124.     DC.L    $0004,0,0
  125.     DC.W    15,18,17,9
  126.     DC.L    ModeGGText,0
  127.     DC.W    GD_ModeGG
  128.     DC.L    $0002,0,0
  129.     DC.W    376,15,19,90
  130.     DC.L    LoTrackGGText,0
  131.     DC.W    GD_LoTrackGG
  132.     DC.L    $0004,0,0
  133.     DC.W    403,15,19,90
  134.     DC.L    HiTrackGGText,0
  135.     DC.W    GD_HiTrackGG
  136.     DC.L    $0004,0,0
  137.     DC.W    38,79,227,14
  138.     DC.L    ArchiveNameGGText,0
  139.     DC.W    GD_ArchiveNameGG
  140.     DC.L    $0002,0,0
  141.     DC.W    38,97,227,14
  142.     DC.L    TextFNameGGText,0
  143.     DC.W    GD_TextFNameGG
  144.     DC.L    $0002,0,0
  145.     DC.W    10,116,26,11
  146.     DC.L    BitmapGGText,0
  147.     DC.W    GD_BitmapGG
  148.     DC.L    $0002,0,0
  149.     DC.W    233,116,26,11
  150.     DC.L    ValidateGGText,0
  151.     DC.W    GD_ValidateGG
  152.     DC.L    $0002,0,0
  153.     DC.W    110,116,26,11
  154.     DC.L    ShowTextGGText,0
  155.     DC.W    GD_ShowTextGG
  156.     DC.L    $0002,0,0
  157.     DC.W    348,116,26,11
  158.     DC.L    PauseGGText,0
  159.     DC.W    GD_PauseGG
  160.     DC.L    $0002,0,0
  161.     DC.W    10,134,110,14
  162.     DC.L    KeyGGText,0
  163.     DC.W    GD_KeyGG
  164.     DC.L    $0002,0,0
  165.     DC.W    164,134,258,14
  166.     DC.L    StartGGText,0
  167.     DC.W    GD_StartGG
  168.     DC.L    $0010,0,0
  169.     DC.W    10,79,28,14
  170.     DC.L    GetArchiveNameGGText,0
  171.     DC.W    GD_GetArchiveNameGG
  172.     DC.L    $0010,0,0
  173.     DC.W    10,97,28,14
  174.     DC.L    GetTextFNameGGText,0
  175.     DC.W    GD_GetTextFNameGG
  176.     DC.L    $0010,0,0
  177.     DC.W    161,35,26,11
  178.     DC.L    ViewFullGGText,0
  179.     DC.W    GD_ViewFullGG
  180.     DC.L    $0021,0,0
  181.  
  182. DMSIIGTags:
  183.     DC.L    $80080009,CModeGGLabels
  184.     DC.L    $8008003D,3
  185.     DC.L    $8008000A,2
  186.     DC.L    $00000000
  187.     DC.L    $80080006,DriveGGList
  188.     DC.L    $80080035,0
  189.     DC.L    $00000000
  190.     DC.L    $80080009,ModeGGLabels
  191.     DC.L    $8008000A,1
  192.     DC.L    $00000000
  193.     DC.L    $80080027,79
  194.     DC.L    $80080029,3
  195.     DC.L    $8008002A,LoTrackGGFormat
  196.     DC.L    $8008002B,$00000008
  197.     DC.L    $80031001,$00000002
  198.     DC.L    $80030016,1
  199.     DC.L    $00000000
  200.     DC.L    $80080027,79
  201.     DC.L    $80080028,79
  202.     DC.L    $80080029,10
  203.     DC.L    $8008002A,HiTrackGGFormat
  204.     DC.L    $8008002B,$00000008
  205.     DC.L    $80031001,$00000002
  206.     DC.L    $80030016,1
  207.     DC.L    $00000000
  208.     DC.L    $8008002E,108
  209.     DC.L    $00000000
  210.     DC.L    $8008002E,108
  211.     DC.L    $00000000
  212.     DC.L    $80080004,1
  213.     DC.L    $00000000
  214.     DC.L    $80080004,1
  215.     DC.L    $00000000
  216.     DC.L    $80080004,1
  217.     DC.L    $00000000
  218.     DC.L    $80080004,1
  219.     DC.L    $00000000
  220.     DC.L    $8008002E,108
  221.     DC.L    $00000000
  222.     DC.L    $00000000
  223.     DC.L    $00000000
  224.     DC.L    $00000000
  225.     DC.L    $00000000
  226.  
  227.  
  228. LoTrackGGFormat:
  229.     DC.B    '%ld',0
  230.     CNOP     0,2
  231.  
  232. HiTrackGGFormat:
  233.     DC.B    '%ld',0
  234.     CNOP     0,2
  235.  
  236. CModeGGText:
  237.     DC.B    '',0
  238.  
  239. DriveGGText:
  240.     DC.B    'Drive',0
  241.  
  242. ModeGGText:
  243.     DC.B    '',0
  244.  
  245. LoTrackGGText:
  246.     DC.B    'Lo',0
  247.  
  248. HiTrackGGText:
  249.     DC.B    'Hi',0
  250.  
  251. ArchiveNameGGText:
  252.     DC.B    'Archive Name',0
  253.  
  254. TextFNameGGText:
  255.     DC.B    'Text Name',0
  256.  
  257. BitmapGGText:
  258.     DC.B    'Bitmap',0
  259.  
  260. ValidateGGText:
  261.     DC.B    'Validate',0
  262.  
  263. ShowTextGGText:
  264.     DC.B    'Show Text',0
  265.  
  266. PauseGGText:
  267.     DC.B    'Pause',0
  268.  
  269. KeyGGText:
  270.     DC.B    'Key',0
  271.  
  272. StartGGText:
  273.     DC.B    'START!',0
  274.  
  275. GetArchiveNameGGText:
  276.     DC.B    'Get',0
  277.  
  278. GetTextFNameGGText:
  279.     DC.B    'Get',0
  280.  
  281. ViewFullGGText:
  282.     DC.B    'Full',0
  283.  
  284.     CNOP    0,2
  285.  
  286.     XDEF    CModeGGLabels
  287.  
  288. CModeGGLabels:
  289.     DC.L    CModeGGLab0
  290.     DC.L    CModeGGLab1
  291.     DC.L    CModeGGLab2
  292.     DC.L    CModeGGLab3
  293.     DC.L    0
  294.  
  295.     XDEF    ModeGGLabels
  296.  
  297. ModeGGLabels:
  298.     DC.L    ModeGGLab0
  299.     DC.L    ModeGGLab1
  300.     DC.L    ModeGGLab2
  301.     DC.L    ModeGGLab3
  302.     DC.L    ModeGGLab4
  303.     DC.L    ModeGGLab5
  304.     DC.L    0
  305.  
  306. CModeGGLab0:    DC.B    'None',0
  307. CModeGGLab1:    DC.B    'Heavy1',0
  308. CModeGGLab2:    DC.B    'Heavy2',0
  309. CModeGGLab3:    DC.B    'Best',0
  310.  
  311.     CNOP    0,2
  312.  
  313. ModeGGLab0:    DC.B    'Read from Disk',0
  314. ModeGGLab1:    DC.B    'Write to Disk',0
  315. ModeGGLab2:    DC.B    'View Info',0
  316. ModeGGLab3:    DC.B    'Repack Archive',0
  317. ModeGGLab4:    DC.B    'Test Archive',0
  318. ModeGGLab5:    DC.B    'Read DMSText',0
  319.  
  320.     CNOP    0,2
  321.  
  322. DriveGGNodes0:
  323.     DC.L    DriveGGNodes1
  324.     DC.L    DriveGGList
  325.     DC.B    0,0
  326.     DC.L    DriveGGName0
  327.  
  328. DriveGGName0:
  329.     DC.B    'DF0:',0
  330.     CNOP    0,2
  331.  
  332. DriveGGNodes1:
  333.     DC.L    DriveGGNodes2
  334.     DC.L    DriveGGNodes0
  335.     DC.B    0,0
  336.     DC.L    DriveGGName1
  337.  
  338. DriveGGName1:
  339.     DC.B    'DF1:',0
  340.     CNOP    0,2
  341.  
  342. DriveGGNodes2:
  343.     DC.L    DriveGGNodes3
  344.     DC.L    DriveGGNodes1
  345.     DC.B    0,0
  346.     DC.L    DriveGGName2
  347.  
  348. DriveGGName2:
  349.     DC.B    'DF2:',0
  350.     CNOP    0,2
  351.  
  352. DriveGGNodes3:
  353.     DC.L    DriveGGNodes4
  354.     DC.L    DriveGGNodes2
  355.     DC.B    0,0
  356.     DC.L    DriveGGName3
  357.  
  358. DriveGGName3:
  359.     DC.B    'DF3:',0
  360.     CNOP    0,2
  361.  
  362. DriveGGNodes4:
  363.     DC.L    DriveGGNodes5
  364.     DC.L    DriveGGNodes3
  365.     DC.B    0,0
  366.     DC.L    DriveGGName4
  367.  
  368. DriveGGName4:
  369.     DC.B    'FF0:',0
  370.     CNOP    0,2
  371.  
  372. DriveGGNodes5:
  373.     DC.L    DriveGGNodes6
  374.     DC.L    DriveGGNodes4
  375.     DC.B    0,0
  376.     DC.L    DriveGGName5
  377.  
  378. DriveGGName5:
  379.     DC.B    'FF1:',0
  380.     CNOP    0,2
  381.  
  382. DriveGGNodes6:
  383.     DC.L    DriveGGList+4
  384.     DC.L    DriveGGNodes5
  385.     DC.B    0,0
  386.     DC.L    DriveGGName6
  387.  
  388. DriveGGName6:
  389.     DC.B    'RAD:',0
  390.     CNOP    0,2
  391.  
  392.     XDEF    DriveGGList
  393.  
  394. DriveGGList:
  395.     DC.L    DriveGGNodes0,0,DriveGGNodes6
  396.  
  397.     XDEF    topaz8
  398.  
  399. topaz8:
  400.     DC.L    topazFName8
  401.     DC.W    8
  402.     DC.B    $00,$41
  403.  
  404. topazFName8:
  405.     DC.B    'topaz.font',0
  406.     CNOP    0,2
  407.  
  408.     XDEF    DMSIIWindowTags
  409.  
  410. DMSIIWindowTags:
  411. DMSIIL:
  412.     DC.L    $80000064,0
  413. DMSIIT:
  414.     DC.L    $80000065,0
  415. DMSIIW:
  416.     DC.L    $80000076,0
  417. DMSIIH:
  418.     DC.L    $80000077,0
  419.     DC.L    $8000006A,$0040037C
  420.     DC.L    $8000006B,$0000101E
  421. DMSIIWG:
  422.     DC.L    $8000006C,0
  423.     DC.L    $8000006E,DMSIIWTitle
  424.     DC.L    $8000006F,DMSIISTitle
  425. DMSIISC:
  426.     DC.L    $80000079,0
  427.     DC.L    $8000007D,DMSIIZoom
  428.     DC.L    $80000090,1
  429.     DC.L    $00000000
  430.  
  431. DMSIIWTitle:
  432.     DC.B    'DMS Intuition Interface V1.0  for DMS V1.11',0
  433.     CNOP    0,2
  434.  
  435. DMSIISTitle:
  436.     DC.B    'DMS Intuition Interface V1.0 for DMS V1.11     Copyright © 1993 by Newtec.',0
  437.     CNOP    0,2
  438.  
  439.     XDEF    DMSIIText0
  440.  
  441. DMSIIText0:
  442.     DC.B    1,0
  443.     DC.B    $00
  444.     DC.B    0
  445.     DC.W    80,3
  446.     DC.L    topaz8
  447.     DC.L    DMSIIIText0
  448.     DC.L    DMSIIText1
  449.  
  450. DMSIIText1:
  451.     DC.B    1,0
  452.     DC.B    $00
  453.     DC.B    0
  454.     DC.W    205,3
  455.     DC.L    topaz8
  456.     DC.L    DMSIIIText1
  457.     DC.L    0
  458.  
  459. DMSIIIText0:
  460.     DC.B    'Mode',0
  461.  
  462. DMSIIIText1:
  463.     DC.B    'Crunch Mode',0
  464.  
  465.     CNOP    0,2
  466.  
  467.     XDEF    DMSIINewMenu0
  468.  
  469. DMSIINewMenu0:
  470.     DC.B    1,0
  471.     DC.L    DMSIIMName0
  472.     DC.L    0
  473.     DC.W    0
  474.     DC.L    0,0
  475.  
  476. DMSIINewMenu1:
  477.     DC.B    2,0
  478.     DC.L    DMSIIMName1
  479.     DC.L    DMSIIMComm1
  480.     DC.W    0
  481.     DC.L    0,0
  482.  
  483. DMSIINewMenu2:
  484.     DC.B    2,0
  485.     DC.L    DMSIIMName2
  486.     DC.L    DMSIIMComm2
  487.     DC.W    0
  488.     DC.L    0,0
  489.  
  490. DMSIINewMenu3:
  491.     DC.B    2,0
  492.     DC.L    $FFFFFFFF,0
  493.     DC.W    0
  494.     DC.L    0,0
  495.  
  496. DMSIINewMenu4:
  497.     DC.B    2,0
  498.     DC.L    DMSIIMName4
  499.     DC.L    DMSIIMComm4
  500.     DC.W    0
  501.     DC.L    0,0
  502.  
  503. DMSIINewMenu5:
  504.     DC.B    1,0
  505.     DC.L    DMSIIMName5
  506.     DC.L    0
  507.     DC.W    0
  508.     DC.L    0,0
  509.  
  510. DMSIINewMenu6:
  511.     DC.B    2,0
  512.     DC.L    DMSIIMName6
  513.     DC.L    DMSIIMComm6
  514.     DC.W    0
  515.     DC.L    0,0
  516.  
  517. DMSIINewMenu7:
  518.     DC.B    2,0
  519.     DC.L    DMSIIMName7
  520.     DC.L    DMSIIMComm7
  521.     DC.W    0
  522.     DC.L    0,0
  523.  
  524. DMSIINewMenu8:
  525.     DC.B    2,0
  526.     DC.L    DMSIIMName8
  527.     DC.L    0
  528.     DC.W    $0109
  529.     DC.L    0,0
  530.  
  531. DMSIINewMenu9:
  532.     DC.B    2,0
  533.     DC.L    $FFFFFFFF,0
  534.     DC.W    0
  535.     DC.L    0,0
  536.  
  537. DMSIINewMenu10:
  538.     DC.B    2,0
  539.     DC.L    DMSIIMName10
  540.     DC.L    DMSIIMComm10
  541.     DC.W    0
  542.     DC.L    0,0
  543.  
  544. DMSIINewMenu11:
  545.     DC.B    2,0
  546.     DC.L    $FFFFFFFF,0
  547.     DC.W    0
  548.     DC.L    0,0
  549.  
  550. DMSIINewMenu12:
  551.     DC.B    2,0
  552.     DC.L    DMSIIMName12
  553.     DC.L    0
  554.     DC.W    $0009
  555.     DC.L    0,0
  556.  
  557. DMSIINewMenu13:
  558.     DC.B    2,0
  559.     DC.L    $FFFFFFFF,0
  560.     DC.W    0
  561.     DC.L    0,0
  562.  
  563. DMSIINewMenu14:
  564.     DC.B    2,0
  565.     DC.L    DMSIIMName14
  566.     DC.L    0
  567.     DC.W    $0101
  568.     DC.L    512,0
  569.  
  570. DMSIINewMenu15:
  571.     DC.B    2,0
  572.     DC.L    DMSIIMName15
  573.     DC.L    0
  574.     DC.W    $0001
  575.     DC.L    256,0
  576.  
  577. DMSIINewMenu16:
  578.     DC.B    2,0
  579.     DC.L    DMSIIMName16
  580.     DC.L    DMSIIMComm16
  581.     DC.W    0
  582.     DC.L    0,0
  583.  
  584. DMSIINewMenu17:
  585.     DC.B    2,0
  586.     DC.L    $FFFFFFFF,0
  587.     DC.W    0
  588.     DC.L    0,0
  589.  
  590. DMSIINewMenu18:
  591.     DC.B    2,0
  592.     DC.L    DMSIIMName18
  593.     DC.L    0
  594.     DC.W    $0101
  595.     DC.L    8192,0
  596.  
  597. DMSIINewMenu19:
  598.     DC.B    2,0
  599.     DC.L    DMSIIMName19
  600.     DC.L    0
  601.     DC.W    $0001
  602.     DC.L    4096,0
  603.  
  604. DMSIINewMenu20:
  605.     DC.B    1,0
  606.     DC.L    DMSIIMName20
  607.     DC.L    0
  608.     DC.W    0
  609.     DC.L    0,0
  610.  
  611. DMSIINewMenu21:
  612.     DC.B    2,0
  613.     DC.L    DMSIIMName21
  614.     DC.L    DMSIIMComm21
  615.     DC.W    0
  616.     DC.L    0,0
  617.  
  618. DMSIINewMenu22:
  619.     DC.B    2,0
  620.     DC.L    DMSIIMName22
  621.     DC.L    DMSIIMComm22
  622.     DC.W    0
  623.     DC.L    0,0
  624.  
  625. DMSIINewMenu23:
  626.     DC.B    2,0
  627.     DC.L    $FFFFFFFF,0
  628.     DC.W    0
  629.     DC.L    0,0
  630.  
  631. DMSIINewMenu24:
  632.     DC.B    2,0
  633.     DC.L    DMSIIMName24
  634.     DC.L    DMSIIMComm24
  635.     DC.W    0
  636.     DC.L    0,0
  637.  
  638.     DC.B    0,0
  639.     DC.L    0,0
  640.     DC.W    0
  641.     DC.L    0,0
  642.  
  643. DMSIIMName0:
  644.     DC.B    'Miscellaneous',0
  645.  
  646. DMSIIMName1:
  647.     DC.B    'Restart Program',0
  648.  
  649. DMSIIMComm1:
  650.     DC.B    'R',0
  651.  
  652. DMSIIMName2:
  653.     DC.B    'About',0
  654.  
  655. DMSIIMComm2:
  656.     DC.B    'A',0
  657.  
  658. DMSIIMName4:
  659.     DC.B    'Quit',0
  660.  
  661. DMSIIMComm4:
  662.     DC.B    'Q',0
  663.  
  664. DMSIIMName5:
  665.     DC.B    'Preferences',0
  666.  
  667. DMSIIMName6:
  668.     DC.B    'Load Preferences',0
  669.  
  670. DMSIIMComm6:
  671.     DC.B    'L',0
  672.  
  673. DMSIIMName7:
  674.     DC.B    'Save Preferences',0
  675.  
  676. DMSIIMComm7:
  677.     DC.B    'S',0
  678.  
  679. DMSIIMName8:
  680.     DC.B    'Save Prefs on Quit?',0
  681.  
  682. DMSIIMName10:
  683.     DC.B    'Change DMS Path...',0
  684.  
  685. DMSIIMComm10:
  686.     DC.B    'P',0
  687.  
  688. DMSIIMName12:
  689.     DC.B    'Close Windows Immediately?',0
  690.  
  691. DMSIIMName14:
  692.     DC.B    'Use DMS for testing?',0
  693.  
  694. DMSIIMName15:
  695.     DC.B    'Use other tester?',0
  696.  
  697. DMSIIMName16:
  698.     DC.B    'Select other tester',0
  699.  
  700. DMSIIMComm16:
  701.     DC.B    'T',0
  702.  
  703. DMSIIMName18:
  704.     DC.B    'Use Reqtools.library?',0
  705.  
  706. DMSIIMName19:
  707.     DC.B    'Use ASL.library?',0
  708.  
  709. DMSIIMName20:
  710.     DC.B    'Operations',0
  711.  
  712. DMSIIMName21:
  713.     DC.B    'Delete Selected DMSFile',0
  714.  
  715. DMSIIMComm21:
  716.     DC.B    'D',0
  717.  
  718. DMSIIMName22:
  719.     DC.B    'Format Selected disk',0
  720.  
  721. DMSIIMComm22:
  722.     DC.B    'F',0
  723.  
  724. DMSIIMName24:
  725.     DC.B    'Diskcopy using selected Drive',0
  726.  
  727. DMSIIMComm24:
  728.     DC.B    'C',0
  729.  
  730.     CNOP    0,2
  731.  
  732.     XDEF    SetupScreen
  733.  
  734. SetupScreen
  735.     movem.l d1-d3/a0-a2/a6,-(sp)
  736.     move.l  IntBase(pc),a6
  737.     move.l  PubScreenName,a0
  738.     jsr     LockPubScreen(a6)
  739.     move.l  d0,Scr
  740.     tst.l   d0
  741.     beq     SError
  742.     move.l  Scr,a0
  743.     move.l  GTBase(pc),a6
  744.     lea.l   TD,a1
  745.     jsr     GetVisualInfoA(a6)
  746.     move.l  d0,VisualInfo
  747.     tst.l   d0
  748.     beq     VError
  749.     moveq   #0,d0
  750. SDone:
  751.     movem.l (sp)+,d1-d3/a0-a2/a6
  752.     rts
  753. SError:
  754.     moveq   #1,d0
  755.     bra.s   SDone
  756. VError:
  757.     moveq   #2,d0
  758.     bra.s   SDone
  759.  
  760.     XDEF    CloseDownScreen
  761.  
  762. CloseDownScreen:
  763.     movem.l d0-d1/a0-a1/a6,-(sp)
  764.     move.l  GTBase(pc),a6
  765.     move.l  VisualInfo,a0
  766.     cmpa.l  #0,a0
  767.     beq.s   NoVis
  768.     jsr     FreeVisualInfo(a6)
  769.     move.l  #0,VisualInfo
  770. NoVis:
  771.     move.l  IntBase(pc),a6
  772.     suba.l  a0,a0
  773.     move.l  Scr,a1
  774.     cmpa.l  #0,a1
  775.     beq.s   NoScr
  776.     jsr     UnlockPubScreen(a6)
  777.     move.l  #0,Scr
  778. NoScr:
  779.     movem.l (sp)+,d0-d1/a0-a1/a6
  780.     rts
  781.  
  782.     XDEF    DMSIIRender
  783.  
  784. DMSIIRender:
  785.     movem.l d0-d5/a0-a2/a6,-(sp)
  786.     move.l  DMSIIWnd,a0
  787.     move.b  54(a0),d4
  788.     ext.w   d4
  789.     move.b  55(a0),d5
  790.     ext.w   d5
  791.     move.l  VisualInfo,NR+4
  792.     move.l  VisualInfo,IR+4
  793.     move.l  GTBase(pc),a6
  794.     move.l  DMSIIWnd,a0
  795.     move.l  50(a0),a2
  796.     move.l  a2,a0
  797.     lea.l   NR,a1
  798.     move.w  #161,d0
  799.     add.w   d4,d0
  800.     move.w  #132,d1
  801.     add.w   d5,d1
  802.     move.w  #264,d2
  803.     move.w  #18,d3
  804.     jsr     DrawBevelBoxA(a6)
  805.     move.l  a2,a0
  806.     lea.l   NR,a1
  807.     move.w  #201,d0
  808.     add.w   d4,d0
  809.     move.w  #15,d1
  810.     add.w   d5,d1
  811.     move.w  #96,d2
  812.     move.w  #60,d3
  813.     jsr     DrawBevelBoxA(a6)
  814.     move.l  a2,a0
  815.     lea.l   NR,a1
  816.     move.w  #10,d0
  817.     add.w   d4,d0
  818.     move.w  #15,d1
  819.     add.w   d5,d1
  820.     move.w  #181,d2
  821.     move.w  #60,d3
  822.     jsr     DrawBevelBoxA(a6)
  823.     move.l  IntBase(pc),a6
  824.     move.l  DMSIIWnd,a0
  825.     move.l  50(a0),a0
  826.     lea.l   DMSIIText0,a1
  827.     move.l  d4,d0
  828.     move.l  d5,d1
  829.     jsr     PrintIText(a6)
  830.     movem.l (sp)+,d0-d5/a0-a2/a6
  831.     rts
  832.  
  833.     XDEF    OpenDMSIIWindow
  834.  
  835. OpenDMSIIWindow:
  836.     movem.l d1-d4/a0-a4/a6,-(sp)
  837.     move.l  Scr,a0
  838.     moveq   #0,d3
  839.     moveq   #0,d2
  840.     move.b  36(a0),d2
  841.     move.l  40(a0),a1
  842.     move.w  4(a1),d3
  843.     addq.w  #1,d3
  844.     add.b   35(a0),d3
  845.     move.l  GTBase(pc),a6
  846.     lea.l   DMSIIGList,a0
  847.     jsr     CreateContext(a6)
  848.     move.l  d0,a3
  849.     tst.l   d0
  850.     beq     DMSIICError
  851.     movem.w d2-d3,-(sp)
  852.     moveq   #0,d3
  853.     lea.l   DMSIIGTags,a4
  854. DMSIIGL:
  855.     move.l  4.w,a6
  856.     lea.l   DMSIINGads,a0
  857.     move.l  d3,d0
  858.     mulu    #30,d0
  859.     add.l   d0,a0
  860.     lea.l   BufNewGad,a1
  861.     moveq   #30,d0
  862.     jsr     CopyMem(a6)
  863.     lea.l   BufNewGad,a0
  864.     move.l  VisualInfo,22(a0)
  865.     move.l  #topaz8,12(a0)
  866.     move.w  (a0),d0
  867.     add.w   (sp),d0
  868.     move.w  d0,(a0)
  869.     move.w  2(a0),d0
  870.     add.w   2(sp),d0
  871.     move.w  d0,2(a0)
  872.     move.l  GTBase(pc),a6
  873.     lea.l   DMSIIGTypes,a0
  874.     moveq   #0,d0
  875.     move.l  d3,d1
  876.     asl.l   #1,d1
  877.     add.l   d1,a0
  878.     move.w  (a0),d0
  879.     move.l  a3,a0
  880.     lea.l   BufNewGad,a1
  881.     move.l  a4,a2
  882.     jsr     CreateGadgetA(a6)
  883.     tst.l   d0
  884.     bne.s    DMSIICOK
  885.     movem.w (sp)+,d2-d3
  886.     bra     DMSIICError
  887. DMSIICOK:
  888.     move.l  d0,a3
  889.     move.l  d3,d0
  890.     asl.l   #2,d0
  891.     lea.l   DMSIIGadgets,a0
  892.     add.l   d0,a0
  893.     move.l  a3,(a0)
  894. DMSIITL:
  895.     tst.l   (a4)
  896.     beq.s   DMSIIDN
  897.     addq.w  #8,a4
  898.     bra.s   DMSIITL
  899. DMSIIDN:
  900.     addq.w  #4,a4
  901.     addq.w  #1,d3
  902.     cmp.w   #DMSII_CNT,d3
  903.     bmi     DMSIIGL
  904.     movem.w (sp)+,d2-d3
  905.     move.l  DMSIIGList,DMSIIWG+4
  906.     move.l  GTBase(pc),a6
  907.     lea.l   DMSIINewMenu0,a0
  908.     lea.l   MTags0,a1
  909.     jsr     CreateMenusA(a6)
  910.     move.l  d0,DMSIIMenus
  911.     tst.l   d0
  912.     beq     DMSIIMError
  913.     move.l  d0,a0
  914.     move.l  VisualInfo,a1
  915.     lea.l   MTags1,a2
  916.     jsr     LayoutMenusA(a6)
  917.     move.l  Scr,DMSIISC+4
  918.     move.w  DMSIILeft,DMSIIZoom
  919.     move.w  DMSIITop,DMSIIZoom+2
  920.     move.l  GFXBase(pc),a6
  921.     move.l  Scr,a1
  922.     lea.l   84(a1),a1
  923.     lea.l   DMSIIWTitle,a0
  924.     move.l  #43,d0
  925.     jsr     TextLength(a6)
  926.     add.w   #80,d0
  927.     move.w  d0,DMSIIZoom+4
  928.     move.l  Scr,a0
  929.     move.b  35(a0),d0
  930.     ext.w   d0
  931.     lea.l   84(a0),a0
  932.     add.w   58(a0),d0
  933.     addq.w  #1,d0
  934.     move.w  d0,DMSIIZoom+6
  935.     moveq   #0,d0
  936.     move.w  DMSIILeft,d0
  937.     move.l  d0,DMSIIL+4
  938.     move.w  DMSIITop,d0
  939.     move.l  d0,DMSIIT+4
  940.     move.w  DMSIIWidth,d0
  941.     move.l  d0,DMSIIW+4
  942.     move.w  DMSIIHeight,d0
  943.     move.l  d0,DMSIIH+4
  944.     move.l  IntBase(pc),a6
  945.     suba.l  a0,a0
  946.     lea.l   DMSIIWindowTags,a1
  947.     jsr     OpenWindowTagList(a6)
  948.     move.l  d0,DMSIIWnd
  949.     tst.l   d0
  950.     beq     DMSIIWError
  951.     move.l   DMSIIWnd,a0
  952.     move.l   DMSIIMenus,a1
  953.     jsr      SetMenuStrip(a6)
  954.     move.l  GTBase(pc),a6
  955.     move.l  DMSIIWnd,a0
  956.     suba.l  a1,a1
  957.     jsr     GT_RefreshWindow(a6)
  958.     bsr     DMSIIRender
  959.     moveq   #0,d0
  960. DMSIIDone:
  961.     movem.l (sp)+,d1-d4/a0-a4/a6
  962.     rts
  963. DMSIICError:
  964.     moveq   #1,d0
  965.     bra.s   DMSIIDone
  966. DMSIIGError:
  967.     moveq   #2,d0
  968.     bra.s   DMSIIDone
  969. DMSIIMError:
  970.     moveq   #3,d0
  971.     bra.s   DMSIIDone
  972. DMSIIWError:
  973.     moveq   #4,d0
  974.     bra.s   DMSIIDone
  975.  
  976.     XDEF    CloseDMSIIWindow
  977.  
  978. CloseDMSIIWindow:
  979.     movem.l d0-d1/a0-a2/a6,-(sp)
  980.     move.l   IntBase(pc),a6
  981.     move.l   DMSIIMenus,a0
  982.     cmpa.l   #0,a0
  983.     beq      DMSIINMenu
  984.     move.l   DMSIIWnd,a0
  985.     jsr      ClearMenuStrip(a6)
  986.     move.l   GTBase(pc),a6
  987.     move.l   DMSIIMenus,a0
  988.     jsr      FreeMenus(a6)
  989.     move.l   #0,DMSIIMenus
  990. DMSIINMenu:
  991.     move.l  IntBase(pc),a6
  992.     move.l  DMSIIWnd,a0
  993.     cmpa.l  #0,a0
  994.     beq     DMSIINWnd
  995.     jsr     CloseWindow(a6)
  996.     move.l  #0,DMSIIWnd
  997. DMSIINWnd:
  998.     move.l  GTBase(pc),a6
  999.     move.l  DMSIIGList,a0
  1000.     cmpa.l  #0,a0
  1001.     beq     DMSIINGad
  1002.     jsr     FreeGadgets(a6)
  1003.     move.l  #0,DMSIIGList
  1004. DMSIINGad:
  1005.     movem.l (sp)+,d0-d1/a0-a2/a6
  1006.     rts
  1007.  
  1008.  
  1009.     end
  1010.